home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFUNCS / RSCSSTR.C < prev    next >
C/C++ Source or Header  |  1993-03-18  |  756b  |  31 lines
  1. /**************************************************************************
  2.  * RSCSSTR.C - Set pointers to object strings from within a tree.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. #ifdef GEMFAST_PROTOS
  8.   void rsc_sstrings(OBJECT *thetree, short object, char *pstr, ...)
  9. #else
  10.   void rsc_sstrings(thetree, object, pstr)
  11.     OBJECT            *thetree;
  12.     register short    object;
  13.     char            *pstr;
  14. #endif
  15. {
  16.     register OBJECT *ptree;
  17.     register char  **ppstr;
  18.     va_list          args;
  19.  
  20.     ptree = thetree;
  21.     va_start(args, pstr);
  22.     while (object >= 0) {
  23.         ppstr  = obj_ppstring(&ptree[object]);
  24.         *ppstr = pstr;
  25.         object = va_arg(args, short);
  26.         pstr   = va_arg(args, char *);
  27.     }
  28.     va_end(args);
  29. }
  30.  
  31.